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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® oa 
® ® 
® ® 
® ® 
7 * 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THis SOFTUARE O OTHER * 
+ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO-ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
+ ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE //THOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY D1° AL EQUIPMENT ®* 
= CORPORATION, * 
te 5d 
® ® 
® ® 
® ® 
& ® 
* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Performance Monitoring 


ABSTRAC 
TOCOLLECT is responsible for controlling I/0 Ber Tecwenee 
monitoring and logging data to a mag tape or disk file 


ENVIRONMENT : 
MODE = KERNEL, EXEC 


THOR: S. S. AMWAY, CREATION DATE: 24-Oct-1983 
CORIGINAL AUTHOR: D.N. CUTLER, CREATION DATE: 20-Nov-1977) 


MODIFIED BY: 
V03-002 SSA0024 Stan ay 10-Apr-1984 
Moved disk pees Faw n SRQ record to avoid 
conflicting usage by newly defined field PIBSW_SRQ_ACON. 


v03-001 SSA0008 Stan re | 21-Feb-1984 
Record node name to data the as part of 
the initialization record. This is dune to aid in 
the analysis of data recorded simultaneously on 
several nodes in a VAXcluster. 
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When allocating PDB, check for previous monitoring 
process abort which left a PDB allocated. This can 
only happen if another process issues a SDELPRC 
service or a user issues a DCL STOP PROCESS command. 
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; INCLUDE FILES: 


65 
66 SOCDEF Define device classes & types 
6 SDDBDEF :DEFINE DDB OFFSETS 
98 SDEVDEF sDEFINE DEVCHAR/DEVCHAR2 bits 
8 SDYNDEF sDEFI DATA STRUCTURE CODES 
0 SIPLOEF sDEFINE INTERRUPT PRIORITY LEVELS 
71 SIODEF DEF! /O0 FUNCTION CODES 
i SPBHDEF ;DEFI OFFSETS 
7 SPCBDEF sDEFI PCB OFFSETS 
74 SPOBDEF ;DEFINE PDB A 
75 SPIBDEF ;DEFINE PIB OFFSETS 
16 SPRDEF ;DEFINE PROCESSOR REGISTERS 
7 SSYIDEF sDefine GETSYI item codes 
4 SUCBDEF ;DEFINE UCB OFFSETS 
0; 
; MACROS: 
4 ; 
5 ; GENERATE STRING DESCRIPTOR AND TEXT 
| -MACRO .DESCR STRING 
. TEXT, LONG, RD, WRT ,NOEXE 
SSTARTS$=. 
91 -ASCII \STRING\ 
3 SENDS=. 
9 -PSECT DATA,LONG,RD,WRT,NOEXE 
9% :LONG $END$-$STARTS 
95 -LONG $STARTS$ 
38 ~ENDM -DESCR 
: 
Ri ; EQUATED SYMBOLS: 
1 o 
1 DATBUFS12Z=512 ;DATA COLLECTION BUFFER SIZE 
1 NUMDATBUF =11 ;NUMBER OF DATA COLLETION BUFFERS 
1 OUTBUF S12=4096 ;OUTPUT DATA BUFFER SIZE 
: 5 FLUSHCOUNT=20 ;BUFFER FLUSH CONTROL VALUE 
107 ; 
' ; 3; OWN STORAGE: 
1 eo 
Wt -PSECT PATALONS AD UAT MOE NE 
112 ANDMSK: .BLKW spaces t SELECTION ‘AND’ MASK 
115 BUFLEN: .BLKW 1 ;LENGTH OF OUTPUT MESSAGE 
114 COPBUF: .BLKB RATBUF SIZ DATA COLLECTION COPY BUFFER 
115 DCLASS: .BLKB sDEVICE CLASS MATCH BYTE 
116 DELTAT: . 1 sDELTA TIME BEFORE TEST END 


H 10 
voe~008 DE 1 RGQRTAMCE DATA COLLECTION” " SERISRE S2:15:47 YAHCWNS Oeste ¥OA—OO, mann "OP chy 


117 DVTYPE: .BLKB 1 ;DEVICE TYPE MATCH BYTE 
118 F AGS: -BLKB [FLAGS BYTES 
119 FUNCTN: .BLKQ 1 PACKET ELECTION FUNCTION MASK 
120 IOSTAT: .BLKQ 1 31/0 STA D 
é F 121 MSGLEN: .BYTE PIBSK_SRQ_ SIZE S126 OF START OF t 1/0 Than REQUEST MESSAGE 
9 1 -BYTE PIBSK"SIO-SIZE 7SIZE OF STAR ACTION 
1 1 .BYT PIBSKE10_S1ZE sSIZE OF EN PRANGA TION MESSA 
1 j 124 -BYTE PIBSK"ERQ"S! 7SIZE OF END OF 70 REQUEST MESSAGE 
1 125 -BYTE PIBSK-ARQ"SIZE 7SIZE OF oAbont 1/0 REQUEST MESSAGE 
.-9 : NUMBUF: .BLKL 1 :NUMBER 0 F BUFFERS OF DATA TO COLLECT 
§ 127 OUTBUF: .BLKB QUTBUF SIZ A OUTPUT BUFFER 
000120A 1 5 XORMSK: .BLKW ACRES ELECTION 'XOR' MASK 
122A =: 129 SYI_LIST: ; Item list for GETSYI 
08 120A =. 180 .WORD 8 
1 p 1eec)— 137 .WORD SYI$_NODENAME 
9901 A’ 1 ¢ .LONG NODERAME 
00009 1538 134 tone 
123A 135 NODENAME: 
00000000 00000000 $A 1 $ .QUAD 0 
t 
1 “3 138 .ALIGN LONG 
124 139 LOCK_RANGE : ; Address range to lock into working set 
00000260" 1244 140 .LONG NON_PAGED_BEGIN 
;LONG NON DEN 
000003Ba' 48 141 ONG NON~PAGED"END 
124¢ 128 OUTFAB: $FAB  —s« FNM=<IOCOLLECT>,- 
1246€ 144 DNM=<IOCOLLECT.DAT>,- 
aie 1g se8.= 
124¢ 123 PicezPut.t 
124¢ 148 FOP=<CBT. ANY EF. SQ0,NEF ,RWO,RWC>,- 
1246C 14 MRS=OUTBU UF Sit. 
ait 8 brecguget t= 
124¢ 13 FMeFIX’ 
9¢ 133 OUTRAB: $RAB FAB=OUTF AB, 
3¢ 135 Rac =<OUfBUFSIZ/S12>, « 
129C 133 ROP=<WBH>,- 
129¢ 138 RBF =OUTBUF , - 
129¢ 15 RSZ=OUTBUF $12 
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T = 1/0 PERFORMANCE DATA COLLECT g- se 18 4 eer ey LOTUS. SREDTOCOLLE ST MAR: 1 - (3) 
ie ~SBTTL IOCOLLECT = 1/0 PERFORMANCE DATA COLLECTION CONTROL | 
163 ; FUNCTIONAL DESCRIPTION: | 
164 ; THIS IS THE MAIN ROUTINE RESPONSIBLE FOR 
! 3 CONTROLLING 1/0 PERFORMANCE DATA COLLECTION 
1 5 ; CALLING SEQUENCE: 
168 ; CALLS/CALLG IOCOLLECT 
170 : INPUT PARAMETERS: 
178 ; 4(AP) = ADDRESS OF NUMBER OF BUFFERS OF DATA TO COLLECT. 
173; (AP) = ADDRESS OF NUMBER OF SECONDS TILL END OF DATA COLLECTION. 
174: (AP) = ADDRESS OF DEVICE CLASS. 
175 : 16(AP) = ADDRESS OF DEVICE TYPE. 
126 : (AP) = ADDRESS OF ‘AND’ MASK FOR PACKET STATUS WORD. 
177: 4(AP) = ADDRESS OF "XOR’ MASK FOR PACKET STATUS WORD. 
178 3 8(AP) = ADDRESS OF QUADWORD FUNCTION MASK. 
180 : IMPLICIT INPUTS: 
! 7e NONE 
1 ; t OUTPUT PARAMETERS: 
1 : s NONE 
1 6 : IMPLICIT OUTPUTS: 
fi 1/0 DATA COLLECTED IN FILE 
189 :; COMPLETION CODES: 
190 : $S$_NORMAL 
13 3 Numerous error codes from other facilities 
198 : SIDE EFFECTS: 
194; NONE 
195 : 
136 i-- 
198 -PSECT CODE,LONG,RD.NOWRT,EXE 
-ENTRY IOCOLLECT,*M<> 
4 SCREATE FAB=QUTF AB ZCREATE DATA FILE 
LBC ——RO, 108 
CONNECT RAB=ZUTRAB 
5 BLBS R0 € 
198: 30$ 
15$: 
19 t INITIALIZE DATA COLLECTION PARAMETERS 
1 e 
18 TSTL  (AP)+ :POINT TO ADDRESS OF FIRST ARGUMENT 
14 MOVL  @(AP)+,W*NUMBUF ise NUMBER OF BUFFERS OF DATA TO COLLECT 
15 EMUL #1000={000«10.a¢AP) #0, *CALCULATE DELTA TIME IN 100 NANOSECONDS 
1 MNEGL R1,W*DELTAT+ 7SEf HIGH ORDER TIME 
1 EGL RO,W*DELTAT :SET LOW ORDER TIME 
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03 50 
done § 
FF BF 66 00 2c 
8 acer 
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, Oe se 9A 

QOOOOFEO 8F DD 
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5E 8 C 

74 5 E 
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DATA COLLECTION 


MANC 16-S 4 AX/V v04-00 e 
- 1/0 BERFORMANE DATA COLLECT g-SEF- 138 ge: 4: 4 take Sfoe OLL Teer mar: 1 
SBwC #0,W*DELTAT+4 : 
MOVE © @(AP) +, W*DCLASS :SET DEVICE CLASS 
vB @(AP)+,W*DVTYP 3SET DEVIC TYPE 
MCOMW @(AP) +. W*ANDMSK :SET ‘AND’ M 
MOVW @(AP)+,W*XORMSK ;SET ‘xOR’ ng 
ova @(AP)+,W*FUNCTN SET tH Me 
SLKWSET_S Lor. ANGE ; Lock high IPL i into working set 
LBS 8 16$ 
W 30$ 
168: 
: Collect UCB/device name mappings 
MOVCS #0,(SP),#*CO,#OUTBUFSIZ,W*OUTBUF ; Init buffer 
PUSHAL W*OUTBUF+4 ; Address of device name counter 
MOVZBL Aah f -(SP) 3; Device type mas 
MOVZBL W*DCLASS,-(SP) : Device class mask 
PUSHL #<OUTBUF§12-8-12-12> : Size of buffer 
; (Save room for time stamp & node ID) 
PUSHAB W*OUTBUF+8 ; Address of buffer 
PUSHL ; Argument count 
SCAIKRNL -. ¢ T_DEVICE_INFO,(SP) ; Get UCB/device name mappings 
ADDL2 +T>*4>,SP : Pop arguments 
BLBC RO 0$ 
MOVL RO, S08 R2 : Get device count 
3: (Device enery z 
: CB addr + 16 cher name + 
3 Quadword DEVCHA 
3 byte 324 bs + "eee DEVTYPE + 
MULL2 setuvoureetney hee 3 Compute next available 
MOVAB W*OUTBUF+8CR2 3 byte in buffer 
MNEGL #2,(R ze ; Insert record. typ 
va G*EX XE$SGQ_SYSTIME,(R2)+ ; Insert starting’ etme stamp 
SGETSYIM TMLST=SYI_LIST : Get node identification 
MNEGL #3,(R2)¢ :; Insert record type 
MOVQ W*NODENAME , (R2) ; Move node aone o buffer 
BNEQ 208 ; If no node nam 
208 MOva #*A\ \, (R2) ; return blanks Listeed of 0 
$PUT RABSOYTRAS 
BLBC 
SFLUSH RAB =OUTRAB 
BLBC 
pcnexee - S sper A COLLECT ;COLLECT 1/0 PERFORMANCE DATA 
. aay :1F LBC DATA COLLECTION PAL URE 
$0$:  PUSHL [SAVE FINAL COL LLECT ON STATUS 
SCLOSE fF AB=OUTF AB 3; Close collect ile 
port RO sRESTORE FINAL COLLECTION STATUS 
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Ris .SBTTL DATA_COLLECT = COLLECT 1/0 PERFORMANCE DATA ; 

1 5g i : FUNCTIONAL DESCRIPTION: ; 

1 74 : $ IN EXECUTIVE MODE AND COLLECTS DATA UNTIL EITHER A ; 

1 75: SPECIFIED NUMBER OF DATA BUFFERS HAVE BEEN COLLECTED OR UNTIL A : 

£6 : SPECIFIED AMOUNT OF TIME HAS ELAPSED. : 

1 28 ; INPUT PARAMETERS: ; 

! 4 NONE b 

1 1 : IMPLICIT INPUTS ; 

! § 3 PARAMETERS SUPPLIED TO/SAVED BY COLLECT : 

1 4 : OUTPUT PARAMETERS: ; 

; a NONE : 

1 5 : IMPLICIT OUTPUTS: ; 

! 3 3 1/0 DATA FILE : 

133 $90 Fo 

o1 5 36 DATA_COLLECT: ; 

o7Fc 0135 39 WORD “M<R2,R3,R4,R5,R6,R7.R8, RQ. R10> : 

oi 7 239% SCHKRNL _S W°ALLOCATE (LOCATE COLLECTION DATA STRUCTURE ; 

0150 €8 0144 295 “R0,5$ a LBS SUCCESSFUL ALLOCATION ; 

04 0147 36 : ; 

168 38 

i $3 + RESIDENT COLLECTION DATA STRUCTURE ALLOCATED 3 

14 01° F 

3c 0 BB O0148 0¢ 5$: PUSHR #*M<R2,R3_,R4 RSD Init buffer : 

1000 8F oF FO&F GE 500 2c 16a 0 MOVCS #0, (SPS,#*CO. #OUTBUFSIZ, bouteur : 
3c OBA 138 04 POPR #*M<R2.R3.R4,R5> ; 

53. 0228'CF 409E «01 05 MOVAB ow F ;GET ADDRESS OF OUTPUT BUFFER ; 
59 1000 C3 3 15¢ 9-306 MOVAB OUTBUFSI2(R3) ,R9 [GET ENDING ADDRESS OF OUTPUT BUFFER F 
SA 14 )=«0 «0161 = «307 MOVL #FLUSHCOUNT ri :Set buffer flush control ¢ : 

164 08 SSETIMR_S #2,W°DELTAT,TIMAST | :SET TIMER FOR DATA COLLECTION. PERIOD : 

03 50 &8 179 30 BLBS RO 16$ IF LBS SUCCESSFUL : 

docrF ©6031 «017C~=— 310 BRW 80$ ; ; 

17F 311.108:  S$HIBER_S ‘HIBERNATE WHILE WAITING FOR BUFFER ; 

03 O20E'CF am &I 6 1 BBC " W*FLAGS, 20$ ;1F CLR, SPECIFIED TIME NOT EXPIRED 3 
18F 314 208: BCRKRNL -S W*COPY DATA ZCOPY DATA TO INTERNAL BUFFER ; 

03 O20E'CF 00 4 1 15 BBC “#9 w°FLAGS,25$ ;1F CLR, NO DATA OVERRUN ; 
90a 1 O1A 16 BRW 70$ : 3 

50 £9 1A 17 25$:  BLBC RO [IF LBS NO DATA TO COPY ; 

58 0004'CF 9E OIA 18 MOVAB wW*COPBUF,RS *GET ADDRESS OF TEMPORARY BUFFER ; 
57 OD AB 9E O1AD 31 MOVAB PBH$K_START(R8) ,R7 [GET ADDRESS OF START OF DATA ; 
nb YA 181 0 308: DEC peHSU- “MSGCNT (RBS ANY HORE RESSAGES IN BUFFER? 3 

50 (67 9A 186 ; 40$: § MOVZBL P1888 TYPE (R7) ,RO [GET MESSAGE TYPE F 

56 O21F°CF40 9A 018 MOVZBL SGCENCROJ,RO6 [GET LENGTH OF MESSAGE : 
51 53 56 C1 O1BF 4 ADDL Res ¥ ORI SCALCULATE ADDRESS OF END OF MESSAGE ; 
59 i D1 01C3 5 CMPL ‘BEYOND END OF BUFFER? F 

A 1A 0166 6 BGTRU [IF GTRU YES : 


10¢ CT - 1/0 PERF 
04- DATA_COLLE 
oe on fg 
01 A7 #1F 01 iv 8 i 
1E A?) B44 OID 
55 14 A? 1D 
40 AS 01 a4 1DA 
1 1 1D 
44 A 8 1E 
1E A 1E 
00 E1 O1E 
05 if A 1E 
O01 A7 4 of 88 OQIEA 
g Ei O1EF 
05 gs a 1F1 
01_A7 0 8F S8 1F4 
63 7 6 1F9 
7 #56 6¢O O1FD 
AF 11 0 
52 O228'CF 9E 8 
37 50 EY «(0214 
13 5A FS) «(0217 
8 1A 
24 50 =E9 7 
5A 14 D0 022A 
35 ge D 
1000 8F =6OFF BF O6E 0 C F 
0228'CF ae 
53 35 dO ; C 
26 peed er F5 8 F 
5 00° 3C aa 
F 11 47 
50 0000°8F 3C 49 
50 =D rt] 
5 
5D 
50 8EDO 68 
9 6 
FF49 1 6A 
6D 
6D 
6D 
6D 
0000026D 60 
6D 
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CT = COLLECT I/0 PERFORMANCE D 5-SEP-1984 §F: 46:86 Yori. SRCJIOCOLLECT.MAR; 1 ae 
7 cups #P1BSK_ $RQ,RO : START 1/0 REQUEST? 
§ SUBB3. PIBS$B_SRQ_PRI(R7) a3 p16$8_ SRO abhi (f7) ;CALCULATE REAL PRIORITY 
: ASSUME PIBSB™ ~$RO7A cCESS*¢¢ Fa P1BSk_SRQ_SIZE 
CLRW PIB$B_SR O-ACCE SS (R7) ; Bex Sk 2 no disk geometry 
; MOVL pipst SRQ-UCB(R7) RS : RS <= UCB addre 
CMPB #o¢ _BISK7UCBSB_DEVCLASS(R5) ; Is device 2 disk ? 
i BNEQ 4 ; BR if not 
5 MOVW UCBSL_DEVDEPEND(RS),- ; Pass geometry for conversion 
$ PIBSG~SRQ_ACCESS+2(R7) 
BBC #0EVSO tLOes 3 Device ay available cluster-wide ? 
8 Ucest OEY HAR2(R5) 42$ : (i.e., DSA or MSCP emulated disk) 
BISB2 #*x407P1B$B SRO_PRI(R7) ; Yes - thee as such tor date reduction 
40 42$: BBC #UCBSV_NOCNURT,= : Is media address 
41 UCBs _DEVSTS(R5) 45$ ; sector/track/cylinder format ? 
4¢ BISB2 #*x80-PIB 8 SRQ_PRI(R7) ; No mitt as such for data cehukien 
43 45$: MOVC R6,(R7),(R3D :MOVE MESSAGE TO OUTPUT BU 
44 ADDL RGR? ;UPDATE ADDRESS IN TEMPORARY BUFFER 
46 50$: MOVAB W*OUTBUF,R2 GET ADDRESS OF OUTPUT BUFFER 
4 $PUT RAB=OUTRAB 3; Output buffer to file 
48 BLBC 0 
49 SOBGTR R10,55$ 
50 SFLUSH RAB=OUTRAB 
51 BLBC =R 
26 MOVL #FCUSHCOUNT RI R1 3; Reset buffer flush control counter 
: 55$: PUSHR xR 3; Re-init buffer 
4 mOVCS #0, meee w*cO, HOUTBUFS1Z,W*OUTBUF 
55 POPR #*M<R2,R3,R4,R5> 
56 MOVL ; :SET STARTING ADDRESS oo OUTPUT BUFFER 
57 SOBGTR W“NUMBUF ,90$ SALL BUFFERS COLLECT 
38 60S: MOVZUL S*#SS$_NORMAL ,RO ;SET NORMAL COMPLETION. STATUS 
60 70S: MOVZWL #SS$_BUFFEROVF ,RO SET BUFFER OVERFLOW STATUS 
61 80S: PUSHL RO :SAVE FINAL COMPLETION STATUS 
$¢ SCRKRNL _S W*DEALLOCATE :DEALLOCATE DATA COLLECTION STRUCTURE 
6 SCANTIM—S 3 CAN NCEL TIMER 
64 POPL RO :RETRIEVE FINAL COMPLETION STATUS 
66 90S: BRW 40$ 
68 ; REE eeeeeeeececeeeeerenee 
$3 BEGIN - Non=pageable code * 
RAR eeeeeeeeeeeeeeeeeeerese 
71 NON_PAGED_BEGIN = . 
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ALLOCATE: 


10$: 


NE EXECUTE 
; DATA STRUCTURES NECE 
; INPUT PARAMETERS: 
; NONE 
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~SBTTL ALLOCATE = ALLOCATE DATA COLLECTION STRUCTURE 
: FUNCTIONAL ead ef 
THIS ROUTI 


XECUTES 
S 


; IMPLICIT INPUTS: 
NUMBER OF BUFFERS TO ALLOCATE 


; OUTPUT — 


; IMPLICIT OUTPUTS: 
RESIDENT DATA COLLECTION STRUCTURE ALLOCATED & INITIALIZED 


AM<R2, iB, R4,RS,R6> 
CLEANU ABORT 
SHURDATBUT R 

SCHSGL CURBS, RG 


L 
#PDBSR_LENGTH,R 
EXEBALONONPAGED 


= 
a 
wv 


W*XORMSK , PDBSW"XORM(R5) 


PDBSW_BUF CNT ( 5) 


W*FUNTTIN poese.. FUNC (R5) 


#OATBUF SIZ 
EXESA ONONPAGED 


RO, 
a .P H$W_SIZE(R2) 
Pau “ae 


Caceh Pons TYPE (R2) 
Re) SPOSL. TEREEBL (RS) 


PERFM 
pIBLS TOPFMPDB 


2 
(R5) ,PMSS$GL_IOPFMPDB 


KERNEL MODE AND IS CALLED TO ESTABLISH THE 
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SARY TO TURN ON I/O PEFORMANCE DATA COLLECTION. 
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LLOCATION FAILURE 
SINITIALIZE FREE BUFFER LISTHEAD 
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T TUR Ey PE 
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DATA OF Conn PROCESS PID 
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tO bbs ALLOCATE = ALLOCATE DATA LLECTION® stru | -SEP=1 198 Be: i: 756 HOTS. cae IOCOLLECT.MAR;1 ° 3) 
50 g" ; : noveut. 1 NORMAL ,RO :SET NORMAL COMPLETION STATUS 
89 C i A 4&4 § $: BSBW a 3 :DELETE ALLOCATED STRUCTURE 
50 0000 ' 8F C 434 $: MOVZWL w3s INSFMEM,RO ;SET INSUFFICIENT MEMORY STATUS 
435 40S: SETIPL TALLOW ALL INTERRUPTS 
04 ! ? § RET : 
18 4 3 sLocal subroutine to cleanup from 
16 4 any previous process abort that 
1 440 t the PDB allocated 
16 441 CLEANUP_ABORT: 
18 re SETIPL #IPL$ FMON ;DISABLE ALL SOFTWARE INTERRUPTS 
55 06000000 ' GF 09 1 44 MOVL G*PM mSSGL 1OPFMPDB,R5 GET ag OF PERFORMANCE DATA BLOCK 
1 1 9 444 BEQL 10$ ;1F EQL NONE 
21 OA A 91 445 CMPB PDBSB_TYPE(R5S) ,ADYNSC -Pob ;IS STRUCTURE A PDB ? 
1 is $ 123 BNEQ 10$ F NOT 
50 20 AS D 44 MOVL PDBSL_PID(RS),RO :GET PID OF OWNER 
00000000 ' GF 18 § 448 JSB G*EXESIPID_ TO. PCB DOES PROCESS EXIST ? 
12 03 449 BNEQ 10$ YES = DON'T DELETE PDB ! 
00000000 ' GF e 0334 450 CLRL G*PMSS$GL_IOPFMPDB Or EAR ADDRESS OF PERFORMANCE DATA BLOCK 
005C 0 OQO33A 451 BSBW DELETE :DELETE PERFORMANCE DATA STRUCTURE 
033D 12g 10$ SETIPL #0 s ALLOW ALL INTERRUPTS 
05 0340 45 RSB 
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-SBTTL COPY_DATA = COPY DATA TO TEMPORARY BUFFER 
FUNCTIONAL peettee pou! 
ROUTINE EXECUTES . unten MODE AND IS CALLED TO COPY THE NEXT 
BUFFER FROM THE FILLED BUFFER POOL INTO A TEMPORARY BUFFER. 


INPUT PARAMETERS: 
NONE 


sen 


<~ 
' oOo 


b= 
>v 


ort 
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5 ad 
ww 


CONAUE WW SO OOD NAULS WN OC ODNAUES WN OWONO 


sites, | INPUTS: 
TEMPORARY BUFFER TO COPY DATA INTO. 


OUTPUT PARAMETERS: 
RO LOW BIT CLEAR INDICATES NO DATA AVAILABLE. 
RO LOW BIT SET INDICATES DATA HAS BEEN COPIED INTO TEMPORARY BUFFER. 


stale | | OUTPUTS: 
IF DATA IS AVAILABLE, TEMPORARY BUFFER CONTAINS DATA 


Be Se Se Se Ge Se Se Ge Se Ge Ge Se Ge Ge Se Se Se Se Se Be Se 


at at at at at a MMMM aMeraeMedeeeeeeee 
0.00 09 GD 09 00 09 09 09 SI NIN SINISINI NNO AAAAAADAOAAUN 


0 oo 
034 
034 COPY_DATA: 
OOFC 034 -WORD “M<R2,R3,R4,R5,R6,R7> 
50 D4 (034 CLRL = RO ;ASSUME NO BUFFERS ARE FULL OF DATA 
51 O004'CF 9E 034 MOVAB W*COPB :GET ADDRESS OF TEMPORARY BUFFER 
034 SETIPL #IPL$ ORS EDEL ;RAISE PRIORITY TO AST DELIVERY LEVEL 
O34 ASSUME DATBUFSIZ LE 512 
61 95 034 TSTB) = (R1) :MAKE SURE TEMPORARY BUFFER IS IN MEMORY 
OFF C1 «695 «(034 TSTB = DATBUF$12-1(R1) 
6 5 SETIPL #IPL$ SY NCH ;RAISE IPL TO SYNCH 
56 O0000000'EF DO 0356 489 MOVL PRSSCC 1OPFM 7GET ADDRESS OF PERFORMANCE DATA BLOCK 
57 0C 66 OF O035D 490 REMQUE a@PDBSL— “FILLFL CRED R?  ;GET ADDRESS OF NEXT FILLED BUFFER 
12 1D 0361 491 BVS 10$ :IF VS NO FILLED BUFFER AVAILABLE 
61 67 0200 8F 28 0363 49 MOVC #DATBUFSIZ,(R7),(R1) | ;COPY DATA TO TEMPORARY BUFFER 
0B BA 69 49 CLRW PBHSU MSGCNT(R7) :CLEAR COMPLETED MESSAGE COUNT 
04 86 67 7 $ 494 INSQUE ), SPOBSL_FREEBL(R6) ;INSERT BUFFER IN FREE LIST 
2A B7 0 495 DECW Poesia. BUF CNT(R6) :DECREASE NUMBER OF | FILLED BUFFERS 
D6 037 496 INCL :SET SUCCESS INDICAT 
75 497 108: = SETIPL INTERRUPTS 
O20E'CF 0B A6 8 32 498 8158 PDBSB_OVERRUN(R6) ,W*FLAGS ;MERGE OVERRUN STATUS IN FLAG BYTE 


——————} rc 
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Voe-t6 DEALLOCATE = DEALLOCATE DATA COLLECTION ; SEp-}98¢ 82:58:86 UTIL32.SRCJIOCOLLECT.MAR; 1 nd 3) 


zr Bae .SBTTL DEALLOCATE = DEALLOCATE DATA COLLECTION STRUCTURE 
7F : : FUNCTIONAL DESCRIPTION: 
7F 4: THIS ROUTINE EXECU TES IN KER RNEL MODE AND IS CALLED TO DEALLOCATE THE 
i 05 : DATA STRUCTURE THAT WAS ESTABLISHED BY THE ALLOCATION ROUTINE. 
7F 09 : INPUT PARAMETERS: 
Ad 88 NONE 
7F 510 : IMPLICIT INPUTS: 
cr 1 : ADDRESS OF PERFORMANCE DATA BLOCK. 
7F i : OUTPUT PARAMETERS: 
Bt i 
O37F 316 : IMPLICIT OUTPUTS: 
7F 517: THE 1/0 PERFORMANCE DATA BLOCK AND THE CURRENT FREE AND FILLED BUFFERS 
O37 218 : ARE DEALLOCATED. THE ADDRESS OF THE PERFORMANCE DATA BLOCK IS ZEROED. 
Bi gh 
oer 5 é DEALLOCATE: 
003C O037F 52 eWORD “M<R2,R3,R4,R5> 
0381 524 SETIPL #IPL$ PERFMON :DISABLE ALL SOFTWARE INTERRUPTS 
55 00000000" EF p 0384 325 HOVL PMSSGL_ TOPERPDB, RS FeO Rone PF PERFORMANCE DATA BLOCK 
00000000'EF 04 038D 527 CLRL §_PMS$GL_IOPFMPDB 'CLEAR ADDRESS OF PERFORMANCE DATA BLOCK 
04 10 0393 528 BSBB—s DEELLETTE DEL ETE *PERFORMANCE DATA STRUCTURE 
0395 525 10$:  SETIPL ZALLOW ALL INTERRUPTS 
04 0398 530 RET ; 


et 
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10 eb bs DELETE = DELETE DATA COLLECTION STRUCTUR Bast yan rene UTIL32.SRCJIOCOLLECT.MAR; 1 ” 
99 ee ; .SBTTL DELETE = DELETE DATA COLLECTION STRUCTURE 
99 4 ¥y FUNCTIONAL DESCRIPTION: 
99 5: THIS ROUTINE EXECUTES IN KERNEL MODE AND IS CALLED TO ACCOMPLISH THE 
3 $ 3 ACTUAL DELETION OF THE 1/0 PERFORMANCE DATA COLLECTION STRUCTURE. 
3 : : INPUT PARAMETERS: 
3 40 : RS = ADDRESS OF PERFORMANCE DATA BLOCK. 
93 4¢ ; INTERRUPT PRIORITY LEVEL AT IPL$_PERFMON 
38 44 : IMPLICIT INPUTS: 
0 99 545: NONE 
399 6 : 
399 547 : OUTPUT PARAMETERS: 
399 548 : NONE 
99 49 ; 
0399 550 : IMPLICIT OUTPUTS: 
0399 31 ; THE 1/0 PERFORMANCE DATA STRUCTURE IS DELETED. 
$399 236 i-- 
0399 554 
0399 555 DELETE: :DELETE PERFORMANCE DATA STRUCTURE 
0399 236 SETIPL #IPL$_ASTDEL OWER TO AST DELIVERY LEVEL 
50 0085 OF 039¢ 557 108:  REMQUE aPDBSC_FREEFL(RS) RO GET NEXT BUFFER FROM FREE LIST 
04 1D O3A0 558 BVS 20$ F VS NONE 
OF 10 O3A2 559 BSBB «GOS ; DEALLOCATE BUFFER 
F611 O3A4 560 BRB 10$ 
50 0C BS OF O3A6 561 208: REMQUE @PDBSL_FILLFL(RS) RO :GET ext BUFFER FROM FILLED LIST 
04 1D O3AA 368 BVS 30$ NON 
05 10 O3AC 56 BSBB «GOS :DEALLOCATE BUFFER 
F6 3611 «O3AE 86564 BRB 20$ 
50 55 00 0380 565 30$: MOVL  R5,RO iSET ADDRESS OF LAST BLOCK 
00000000°EF 16 0383 566 40S: JSB EXE SDEANONPAGED SDEALLOCATE NONPAGED MEMORY 
05 0389 567 RSB ; 
O3BA 568 
O3BA 28? : peeeeerereeeeerrrrrrrerereeee 
Son 570 ; END = Non-pageable code * 
BA 571 ies AGRE Bitlis eda Lee oe 
000003BA 03BA 1 NON_PAGED_END = 
038A «57 
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yO6e0b6 TIMAST = TIMER AST ROUTINE iors 82:43:87 UTIL32.5$ REI IOCOLLECT.MAR; 1 » (9) 

BA a . -SBTTL TIMAST = TIMER AST ROUTINE 
BA io: FUNCTIONAL DESCRIPTION: 
x 4: 3 THIS ROUTINE IS ENTERED WHEN THE DATA COLLECTION PERIOD HAS ELAPSED. 
BA QO ; INPUT PARAMETERS: 
BA 1° NONE 
BA gi 
BA 3 IMPLICIT INPUTS: 
ne ¢ 3 TIMER EXPIRED FLAG IN OWN STORAGE 
BA § 3 OUTPUT PARAMETERS: 
BA 3 NONE 
BA 8 ; 
BA 89 ; IMPLICIT OUTPUTS: 
BA 90 ; THE TIMER EXPIRED FLAG IS SET AND A WAKE SYSTEM SERVICE IS EXECUTED 

bsBA 4 3 TO WAKE THE DATA COLLECTION PROCESS. 

03BA 398 3°° 

03BA 94 

b38A 232 TIMAST: 

0000 O3BA 96 -WORD “M<> 
O20E'CF 02 88 p20 597 BISB #2,W*FLAGS SET TIMER EXPIRED FLAG 
03C1 598 SWAKE_S WAKE UP CURRENT PROCESS 
04 O3CC 599 ET 3 
03CD 600 
03CD 601 . END 


Sm 
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Symbol table B7SE p= 1 98e $2 :46:8% LOTUS SRESPococcect.ma: 1 e 
$$.TAB z 129C R 03 IOSTAT 17 R 02 : 
$$. TABEND = 12E0 R IPL$_ASTDEL = 2 : 
$$. TMP = IPL$_PERFMON z F : 
$$.TMP1 = 000 IPL$-SYNCH s 8 : 
TMP = F LOCK RANGE 1244 R : 
$$. TMPX = 9R 03 MSGLEN 0 if R : 
$$. TMPX1 = D NODE NAME AR : 
T1 2 1 NON_PAGED_BEGIN = 6D R 4 : 
ALLOCATE DR 04 NON PAGED_END z AR 4 : 
ANDMSK R g NUMBUF 4R 2 : 
BUF LEN ® NUMDATBUF = : 
CLEANUP_ABORT a 4 UTBUF 8 R 02 : 
COPBUF 04 R 2 OUTBUF SIZ = : 
_DATA $1 a 4 OUTFAB 124C R 03 ; 
DATA-COLLECT 9 135 R 4 OUTRAB 129C R : 
DATBOF SIZ = 0 PBHSB_TYPE = 000A : 
C$_DISK = 00000001 PBHSK_START = 9 9000 : 
CLASS 0000204 R 02 PBHSW_MSGCNT = 3 : 
DEALLOCATE 9008 FR 04 PBHSW_SIZE = 8 3 : 
ELETE 0000399 R 04 PCBSL_PID : 0 ; 
DELTAT 000205 R 02 POBS$B_DEVCLASS = 90008 4 . 
DEVSV_CLU = 00000000 PDBSB_DEVTYPE = 00000025 ‘ 
DVTY 00020D R 02 PDB$B_OVERRUN = $0008 : 
DYNSC_PBH 0000020 POBSB_TYPE = 0000 9A , 
DYNSC_PDB = 00000021 POBSK_LENGTH = 00000034 
EXE SACONONPAGED eeeeeree =X 04 POBS$L_CURBUF = 3000018 
E XE SOE ANONPAGED teeeeeee =X 04 POBSL_FILLBL = 00000010 
EXESGQ_SYSTIME eeeenere =X = 04 POBSL_FILLFL = 0000000C 
EXESIPTO_TO_PCB aeeeeree =X 04 POBSL_FREEBL = 00000004 
FABSB_DNS = POBSL_FREEFL = $444 44 
FABSB_FNS = PDBS$L_PID = 000000 
FABSC_BID z PDBS$Q_FUNC = 0000002C 
FABSC_BLN = POBSW_ANDM = 00000026 
FABSC_FIX = PDBSW_BUF CNT = 0000002A 
fF ABSC_SEQ = POBSW_SIZE = 000 | 
FABSL_ALQ s PDBSW_XORM z 
FABSL_DNA = PIB$B_SRQ_ACCESS = ¢ 
FABSL_FNA z PIB$B-SRQ-PRI = 00000001 
F ABSL_FOP z PIB$B_TYPE = 39 
FABSV~CBT = PIBSK-ARQ_SIZE 2 1 
F ABSV~CHAN_MODE = PIBSK-EIO_SIZE 2 1 
F ABSV_F ILE MODE = PIBSK-ERQ_SIZE 2 1 
F ABSV_LNM_PODE = PIBSK-S10_SIZE = 1 
F ABSV_MXV s PIBSK-SRQ s 
F ABSV_NEF z PIBSK-SRQ_SIZE = 
FABSV_PUT = PIBS$L~SRQ-UCB 2 4 
FABSV_RWC = PMSS$GC_IOPFMPDB eeeeeeee X04 
FABSV_RWO z PRS IPC = 12 
F ABS$V~SQ0 s RABSB_RAC = 
FABSV~TEF = RABSC_BID = 
F ABSV_TRN s RABSC_BLN s 
F ABSW_ GBC s RABSC_SEQ = 
FLAGS 02 RABSL_CTX z 
F LUSHCOUNT z RABSL_ROP z 
eM Stvice_ nro Ad a 
IOCOLLECT ~ 00000000 RG 4 $S$$_BUFFEROVF eeeeeeee§ X 04 


CURPCB eeeeneee K § 
FER 
| 


emma es —_—- 
co MS Fo eer ee 


The working set Limit was 1800 pages. 

114315 bytes (224 pages) of virtual memory were used to buffer the intermediate gode. 

There were 110 pages of syapol table space at Locgred fo hold 21235 non-local and Local symbols. 
n 
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Symbol table eet Ti §2:46:85 LOTIUSS. SREDTOCOLLECT.MAR: 1 . (8) 
SSS_INSFREM eeeeeree = § 6X 4 3 
SS$"NORMAL eeeeeree =X 8 : 
SY1S_NODENAME = 90881988 $ 
SY1_CIST 122A R 2 3 
SYSSCANTIM eteerere GX 4 : 
SYSSCLOSE eeereree GX 4 ; 
SYSSCMEXEC eeereere GX 4 ; 
SYSSCMKRNL eeererer GX 4 : 
SYSSCONNECT eeeerere GX 4 : 
SYSSCREATE eeeeeeer GX 4 3 
SYSSFLUSH eeeereer GX 4 3 
SYSSGETSYIW eeeereee GX 4 ; 
SYSSHIBER eeeerere 6X 4 3 
SYSSLKWSET ereneeer GX 4 : 
SYSSPUT eeerenee GX 4 § 
SYSSSETIMR eeenener GX 4 $ 
SYSSWAKE teerenee 6X 4 $ 
T OOO03BA R 4 3 
UCBS$B_DEVCLAS = 00000040 3 
UCBSL_DEVCHAR = 0000003C¢ ; 
UCBSL_DEVDEPE = 00000044 F 
UCBSV_NOCNVRT = 0000000 : 
UCBSW_DEVSTS = 0000 98 : 
ORMS 00001228 R 02 ; 
toeecee woe eee ee as e 
; Psect synopsis ! ; 
PSECT name Allocation PSECT No. Attributes : 
- ABS . 00000000 0.) 00 ¢ OQ.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
SABSS 00000 4 ( -») QO1¢ 1.) NOPIC USR ON ABS LCL NOSHR EXE RD WRT NOVEC BYTE : 
DATA 00001 ( 4832.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 3 
SRMSNAM 00000016 $ -) ( -) NOPIC USR CON” REL LCL NOSHR’ EXE RD WRT NOVEC BYTE : 
E Q0000SCD ¢ 9735.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG : 
bore ow nee mmocaae weet eee ead b+ 
H Performance indicators H ; 
Phase Page faults CPU Time Elapsed Time : 
Initialization 47 :00: 8-19 700.51 3 
Command processing 155 :00:00. :04.97 3 
Symbol tabl t 708 63: § 00:66:31 : 
able sor 703. 7:00:04. : 
Pass f 119 J :00:09.18 3 
Symbol table output 18 " :00:00. 3 
Psect synopsis output 1 " :00:00. F 
Cross-reference output 8 ‘ :00:00. 3 
Assembler run totals 84 " 0:01:15. : 


source lines were read Pass 1, producing object records in Pass 2. 
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VAX-11 Macro Run Statistics =SEP=19 236: 3 


52 pages of virtual memory were used to define 46 macros. 
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! Macro Library statistics ! 


Port wmamcer sone ecm me ocema ene an $+ 


Macro Library name Macros defined 
Rtiittnt SYS.OBJJLIB.MLB;1 ° 
$255S$0UA28: CSYSLIBJSTARLET.MLB;2 33 
TOTALS (all Libraries) 4 


2489 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IOCOLLECT/OBJ=OBJ$: IOCOLLECT MSRC$: IOCOLLECT/UPDATE=(ENH$: IOCOLLECT) +EXECMLS$/LIB 


